/* GUI CONVERTED from rsiq03b.p (converter v1.75) Sat Aug 12 23:14:11 2000 */
/* rsiq03b.p - Release Management Supplier Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Report                                        */
/* REVISION: 8.6    CREATED      : 10/21/97           BY: ays *K13M*    */


/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */
/* SHIPPER/CONTAINER INQUIRY SUBPROGRAM */



/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

     {mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rsiq03b_p_1 "PO Number!Lot/Serial"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03b_p_2 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03b_p_3 "Line!Ref"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03b_p_4 "ID!Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03b_p_5 "Item Number!Location"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03b_p_6 "Qty to Rcv"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

     {wbrp02.i}

     define input param abs_recid as recid.
     define input param indent_ct as integer.
     define new shared frame c.
     define variable indent_id as character format "x(20)" label {&rsiq03b_p_2}.

     FORM /*GUI*/ 
       indent_id    column-label {&rsiq03b_p_4}
       abs_item     column-label {&rsiq03b_p_5}
       scx_po       column-label {&rsiq03b_p_1} format "x(16)"
       scx_line     column-label {&rsiq03b_p_3}
       abs_qty  format "->,>>>,>>9.9<<<<" column-label {&rsiq03b_p_6}
       pt_um
     with STREAM-IO /*GUI*/  frame c down width 80.

     /* SET EXTERNAL LABELS */
     setFrameLabels(frame c:handle).


     {gprun.i ""rsiq03a.p"" "(input abs_recid, input indent_ct)"}

     {wbrp04.i}
